RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Eat tabs and spaces. 1b-$6 -1984 01:40: AX-11 Bliss-32 V4.0-74 P 1 
F en eee=18Re Fhig9:2$ «= PANNA Bl isge 32 Ve Orreg met 
1 ZTITLE ‘Eat tabs and spaces.’ 
0 MODULE rskips ¢ IDENT 4 "04-090" 
BLISSS2 £. ADDRESSING RODE (Ente Mithun 2 tonecnecarivess 
= 


OOoo 
oO 
= 


) zs 


LET 


a at at St ss a a sb a as ss os 2 Ss 3 2 1 ss a as ts 
- 
= 


BEGIN 


lenaenncenennateeeneerentennnenceeerenrerterteettenenenenernetnntnetenetnetes 
\® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

. ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is hy hg NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
'® * 
* 
* 
* 
* 
* 
* 
* 
* 
* 


oo 


SOWDNAUES WN (OOD NOUES WN“ OVONOULS Ww —O0@ 


!t THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie eepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


MINMIPINOPUR) 3 2 es 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| peeneanenennenenennennenEereneeuneadneeteneeseousnenetbbpennnebennebentene 
i 


Wrororony 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Skips spaces and tabs, stopping when something else is found. 
ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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Pay ‘Revision History’ 
ED BY: 


DWONAOUVULSWN OO OONOULS Win 
kk kk a tt 


REM00007 *y Marshall 17-November-1983 
Add Hex FF to the ist of characters to be eaten. 
REROO006 Ron Randall re 83 
Added Line to reset sca_word_set at this word boundary. 
rrevieusly, some coud nations of text followed by a commend 
were causing improper handling of uppercase flags. 

KAD00005 Keith Dawson 13-Mar-1983 
Fixed REQUIRE/LIBRARY declarations: RNODEF was never called in. 
REM00004 Ray Marshall 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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RSKIPS Eat tabs and spaces. 16-Sep-1984 01:40: AX-11 Bliss-32 V4.0-742 Page 3 
vo4-000 Module Level. Declarations ee tiae ts ri tt es Me re tt te ~ 


3 $¢ Oost } XSBTTL "Module Level Declarations’ 

; 64 Ose 1 ! INCLUDE FILES: 

: 65 B06 1! 

; 66 064 1 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

; of 3082 ! REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
; 69 U 8199 1 ZIF DSRPLUS XTHEN 

3 70 U 0198 1 LIBRARY 'REQ:DPLLIB'; ! DSRPLUS BLISS Library 
3 71 0199 1 XELSE 

3 7 0200 1 LIBRARY 'REQ:DSRLIB'; ! DSR BLISS Library 

. F 020) 1 SF 

; 74 ¢ 1 

3 75 0205 1! 

: 76 0204 1 ! EXTERNAL REFERENCES: 

; 0205 1! 

: 8 6 1 

: 07 #1 

3 0208 1 

3 0209 1 


ar, 
sca : sca_definition; 


<2 
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; -000 SKIPS . eneee=13Bs Fh: g9:8$ «— FANAAT Bk ieg5 32 Ve. Or74 Page 45 


ZSBTITL 'RSKIPS' 
GLOBAL ROUTINE rskips (ira) : NOVALUE = 


zn 
of 


144 


! FUNCTIONAL DESCRIPTION: 

Skips tabs and spaces until a character is found that is neither. 
FORMAL PARAMETERS: 

IRA is the string that is to be scanned. 


a: 0210 1 

Bo ay 

; ©6886 0 i 1 

co, Be 0214 1 

; 88 1) ae 

; 8 1 1 

; te 

.- vi 8 18 #1 

$ 8§ 19 1 

yee 0220 1 

a OS 8 4 

s 95 § 1 IMPLICIT INPUTS: None 

; * 0 1 

3; 9 0224 (1 IMPLICIT OUTPUTS: None 

;s 98 8S 5 F 

:; 299 0226 1 ! ROUTINE VALUE: 

: 10 8S ! COMPLETION CODES: None 

: 102 0585 1 ! SIDE EFFECTS: Turns oft capitalize flag. 

: 103 0230 1 !-- 

: 6104 0231 1 

s 105 OS 36 2 BEGIN 

: 106 0233 2 MA ; 

s 307 0234 2 ira : REF fixed _string; 

: 108 0235 ¢ 

: 109 0236 WHILE (.khar EQL XC" “7 ' space 

: 110 0237 3 OR (.khar Eat %0'011") ' tab 

s 411 0238 3 OR (.khar EQL 0) ' null 

: 116 0239 3 OR (.khar EQL %0'177') ! rubout | ; 
ay, | 0240 3 OR (.khar EQL 2xX'FF") ! “undefined’’ 8-bit character 
s 114 0241 2 DO 

s 315 BSeg § kens (); 

: 116 024 

2s. St? 0244 2 sca_word_set = false; ! Turn off capitalize flag. 
s 118 0245 1 END; ! End of RSKIPS 


-TITLE RSKIPS Eat tabs and spaces. 
-IDENT \V04-000\ 


-EXTRN KHAR, SCA, RINTES 
-PSECT S$CODES,NOWRT,2 


000c 00000 .ENTRY RSKIPS, Save R2,R3 : 0211 

53 000000006 EF 3 00002 MOVAB KHAR, R3 : 

5} AC DO 00009 MOVL IRA R1 > 0242 

52 ( Al 9 OD MOVAB 12(R1) : 

50 $3 D 11 1$: MOVL KH HAR ko” : 0236 

20 0 01 14 CMPL , #32 : 

18 13 00017 BEQL eS : 

09 50 D1 9019 CMPL RO, #9 : 0237 
16 1 1¢ BEQL © 2$° : 
ath fas 

0000007F BF 46 AF 8o033 CMPL soRO,- #127 : 0239 


== 
Sa 
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v04=000 RSKIPS : exeP- 138s 94: 39:8$ = FANN AT Bl isge 32 Ve. Or74 age 43 
9 13 9 BEQL 2$ : 3 
OOOOOOFF &F g D1 5 CMPL RY. #255 3 0240 3 
1 ig BNEQ 4 : $ 
62 D 2$ TSTL (R2) 3 0242 3 
9? 14 8 ¢ BGT 3$ : 3 
63 v0G F OA MOVZBL ooenres KHAR : : 
62 01 cE C MNEGL #1, (R25 : ; 
dO 1 O3F BRB 1$ : 3 
63 % Bi 9A yl 3$ MOVZBL @4(R1), KHAR ; $ 
4 Al dg 004 INCL 4(R1) : : 
6¢ D7 00048 DECL (R2) : $ 
cS (11 Bee BRS 1$ : 3 
00000000G EF D4 00 ef 4$: CLRL SCA+96 3 0244 3 
04 0005 RET 3; 0245 : 
; Routine Size: 83 bytes, Routine Base: $CODE$ + 0000 3 
: 119 0246 ; 
s 120 0247 1 END ! End of module ; 
: 121 0248 0 ELUDOM : 
; PSECT SUMMARY ; 
? Name Bytes Attributes ; 
; SCODES 83 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
: Library Statistics : 
Be SeoGR rene pete Sey Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped : 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 ; 
; 7$255$DUA28: (RUNOFF .SRCIDSRLIB.L32;1 124 "i 0 86 00:00.3 ; 
: COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RSKIPS/OBJ=OBJ$:RSKIPS MSRC$:RSKIPS/UPDATE=(ENHS$:RSKIPS) ; 
Size: 83 code + 0 data bytes : 
; Run Time: 60:03. 3 
3; Elapsed Time: 0:11. § 
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S 
; Lines/CPU Min: 268 
3; Lexemes/CPU-Min: 11500 
; pate Used: 34 pages 
; Compilation Complete 


v04 


CORPORATION 


POUIPMENT 
ARY 


NTIAL_ AND PROPRIET 


